perm filename Y[206,LSP] blob sn#240341 filedate 1976-10-16 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00003 00003	_EOF_
C00004 ENDMK
CāŠ—;

EXPR Y (F);
<<'LAMBDA,'(X),<F,'(LIST X (LIST (QUOTE QUOTE) X))>>,
		<'QUOTE,<'LAMBDA,'(X),<F,'(LIST X (LIST (QUOTE QUOTE) X))>>>>;

EXPR FAC(F);
	<'LAMBDA,'(X),<'COND,'((EQ X 0) 1),<T,<'TIMES,<F,'(SUB1 X)>,'X>>>>;
_EOF_